IF RIGHT$(FileDir$(Numdirs%), 1) <> "\" THEN FileDir$(Numdirs%) = FileDir$(Numdirs%) + "\"
LOOP UNTIL EOF(1)
CLOSE #1
12 IF UCASE$(FMSDir$) = UCASE$(ListFile$) OR UCASE$(FMSDir$) = UCASE$(WarningFile$) OR UCASE$(ListFile$) = UCASE$(WarningFile$) OR ID$ <> Title$ THEN ERROR 53
CLS : LOCATE 5
PRINT " The FMS Checker 2.0 developed by Ethan Poole of the EHP Software Exchange"
PRINT " [data] (904) 463-0027 or [voice] (904) 463-6108"
PRINT
PRINT " If you find this program to be useful, a $15 dollar registration"
PRINT " is requested to help fund the development of this and other programs"
PRINT
PRINT " Please make checks payable to ETHAN POOLE"
PRINT " and mail to:"
PRINT
PRINT " Ethan Poole"
PRINT " The EHP Software Exchange"
PRINT " P.O. Box 1090"
PRINT " Trenton, FL 32693-1090"
PRINT
PRINT " -- T h e F M S C h e c k e r 2 . 0 -- (C)opyright 1989"
n1 = TIMER + 5: DO
LOOP UNTIL TIMER >= n1
CLS
n1 = TIMER + 5
IF UCASE$(SysLineDef$) = "Y" THEN Remove.Sysop.Only = Yes
LOCATE 10, 7:
IF Remove.Sysop.Only = No THEN
PRINT " Press 'Y' NOW if you wish SysOp-Only Lines to be MOVED.":
ELSE PRINT "Press 'N' NOW to Prevent SysOp-Only Lines from being Moved!":
END IF
answ = No
DO
IF UCASE$(INKEY$) = "Y" THEN Remove.Sysop.Only = Yes: answ = Yes
IF UCASE$(INKEY$) = "N" THEN Remove.Sysop.Only = No: answ = Yes
LOOP UNTIL n1 < TIMER OR answ = Yes
LOCATE 24, 20:
IF Remove.Sysop.Only = Yes THEN PRINT "MOVING SysOp-Only Lines";
IF Remove.Sysop.Only = No THEN PRINT "NOT MOVING SysOp-Only Lines";
VIEW PRINT 1 TO 23
CLS
1 OPEN FMSDir$ FOR INPUT ACCESS READ AS #1 LEN = 15360
2 OPEN ListFile$ FOR OUTPUT ACCESS WRITE AS #2 LEN = 15360
3 OPEN WarningFile$ FOR OUTPUT ACCESS WRITE AS #3 LEN = 10240
4 IF Remove.Sysop.Only = Yes THEN OPEN SysopDir$ FOR APPEND ACCESS READ WRITE AS #5 LEN = 2048
IF LEFT$(FMSLine$, 1) = "\" THEN PRINT #2, FMSLine$: Ext.Cat.Count = 0: GOTO 50
IF LEFT$(FMSLine$, 1) = " " THEN Ext.Cat.Count = Ext.Cat.Count + 1: Ext.Cat.Line$(Ext.Cat.Count) = FMSLine$: GOTO 50
IF LEFT$(FMSLine$, 1) = "/" AND Remove.Sysop.Only = Yes THEN IF Ext.Cat.Count > 0 THEN FOR sgg = 1 TO Ext.Cat.Count: PRINT #5, Ext.Cat.Line$(sgg): NEXT sgg: PRINT #5, FMSLine$: Ext.Cat.Count = 0: erg3 = Yes: GOTO 50: ELSE PRINT #5, _
FMSLine$: erg3 = Yes: GOTO 50
IF LEFT$(FMSLine$, 1) = "/" THEN IF Ext.Cat.Count > 0 AND Remove.Sysop.Only = No THEN FOR xy = 1 TO Ext.Cat.Count: PRINT #2, Ext.Cat.Line$(xy): NEXT xy: PRINT #2, FMSLine$: ELSE PRINT #2, FMSLine$: Ext.Cat.Count = 0: GOTO 50
IF LEFT$(FMSLine$, 1) = "*" THEN PRINT #2, FMSLine$: Ext.Cat.Count = 0: GOTO 50